home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / softcd / intro / examples.dir / 00009_UI Rollover Change Member.ls < prev    next >
Encoding:
Text File  |  1999-10-22  |  1.6 KB  |  47 lines
  1. property standardImage, alternateImage, nextCM
  2.  
  3. on getBehaviorDescription
  4.   vDesc = "Change the sprite's cast member when the mouse rolls over." & RETURN & RETURN
  5.   vDesc = vDesc & "PARAMETERS:" & RETURN
  6.   vDesc = vDesc & "Use Next Member - Turn this option on to automatically display"
  7.   vDesc = vDesc && "the next cast member in the cast when mouse rolls over the sprite." & RETURN
  8.   vDesc = vDesc & "Rollover Cast Member - Choose a specific cast member to appear when the"
  9.   vDesc = vDesc && "mouse rolls over the sprite. This setting is ignored if Use Next Member is on."
  10.   return vDesc
  11. end
  12.  
  13. on getBehaviorTooltip
  14.   vTip = "Makes the current sprite's cast member " & RETURN
  15.   vTip = vTip & "change when the pointer is over the sprite."
  16.   return vTip
  17. end
  18.  
  19. on mouseEnter me
  20.   set the member of sprite the spriteNum of me to me.alternateImage
  21. end
  22.  
  23. on mouseLeave me
  24.   set the member of sprite the spriteNum of me to me.standardImage
  25. end
  26.  
  27. on beginSprite me
  28.   me.standardImage = the member of sprite me.spriteNum
  29.   if nextCM = 1 then
  30.     memref = the member of sprite me.spriteNum
  31.     memdefault = member(memref.memberNum + 1)
  32.     alternateImage = memdefault
  33.   end if
  34. end
  35.  
  36. on getPropertyDescriptionList
  37.   if the currentSpriteNum = 0 then
  38.     memdefault = 0
  39.   else
  40.     memref = the member of sprite the currentSpriteNum
  41.     castLibNum = memref.castLibNum
  42.     memdefault = member(memref.memberNum + 1, castLibNum)
  43.   end if
  44.   p_list = [#nextCM: [#comment: "Use Next Member:", #format: #boolean, #default: 1], #alternateImage: [#comment: "Rollover Cast Member:", #format: #graphic, #default: memdefault]]
  45.   return p_list
  46. end
  47.